home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 351-375 / disk_352 / mg / rexx / markrexxfunction.mg < prev    next >
Text File  |  1992-05-06  |  521b  |  30 lines
  1. /*
  2.  * First hack at marking a rexx function.
  3.  */
  4. trace ?I
  5. options results
  6. options failat 2
  7.  
  8. /* Save our current location */
  9. 'set-mark'
  10. 'rexx-line'
  11. do while left(result, 2) ~= "/*"
  12.     'next-line'
  13.     if rc ~= 0 then break
  14.     'rexx-line'
  15.     end
  16.  
  17. /* Found the top of the next function, or the end of the buffer, so mark it */
  18. 'beginning-of-line'
  19. 'set-mark'
  20.  
  21. /* Now, move back to the top of this function */
  22. 'previous-line'
  23. 'rexx-line'
  24. do while left(result, 2) ~= "/*"
  25.     'previous-line'
  26.     if rc != 0 then break
  27.     'rexx-line'
  28.     end
  29. exit 0
  30.